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ABSTRACT 



An experimental investigation was conducted to examine 
fuel regression rate control methods other than var:.il)le 
bypass air flow rates in the solid fuel ramjet. Air and 
oxygen injection at various axial locations within the fuel 
grain were examined as well as air, oxygen and ethylene 
injection through the step face. One inlet swirl design was 
also tested. Secondary gas injection was found to be 
inadequate for regression rate control. A small amount of 
inlet swirl resulted in a significant increase in fuel 
regression rate, indicating that variable inlet swirl may be 
a viable technique for providing in-flight fuel flow rate 
modulation in the solid fuel ramjet. 
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I . INTRODUCTION 



Ramjets operate with much higher specific impulse than 
rockets since ramjets use inlet air as a source of oxygen. 
Self-sufficient rockets, on the other hand, must carry their 
own oxidizer and bear the consequent penalty. Accordingly, 
although rockets must be chosen for propulsion outside of 
the atmosphere, and solid propellent rockets are 
unchallenged for short- range tactical applications, ramjets 
can generally outperform rockets in the medium and long 
range tactical environments. 

Because the ramjet depends only on its forward motion at 
supersonic speeds to effectively compress intake air, the 
engine, in principle, can employ very few, if any, moving 
parts. It is therefore capable of simplicity, lightness of 
construction, and high flight speed not possible in other 
air-breathing engines. These features, plus the high thermal 
efficiency it can achieve, make the ramjet a particulary 
attractive choice for propelling vehicles at supersonic 
speeds . 

One of the significant difference between rockets and 
ramjets is thrust at zero speed. Rockets can deliver thrust 
at any speed, whereas a ramjet requires an auxilary boost 
system to accelerate it to its supersonic operating regime 
so that its forward motion can compress the inlet air. To 
operate at practical efficiency a ramjet must be moving at 
about a Mach number of 1.5 or greater so that the margin of 
thrust over drag will be satisfactory. 

The solid fuel ramjet (SFRJ) employs solid fuel for the 
combustor walls. Its distinguishing feature is the absence 
of fuel tankage, fuel delivery, and fuel control systems. 
The solid fuel ramjet offers this simplicity while providing 
excellent density impulse and combustion efficiency. 
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Figure 1.1 Schematic of the SFRJ . 



Fig 1.1 shows a schematic of a SFRJ combustor. One 
inherent problem with the SFRJ is the dependence of fuel 
regression on the air mass flux through the fuel grain. The 
fuel regression rate generally behaves according to 




where r = fuel regression rate 

Mair = air flow rate 

Ap = port area 

f(Tair,P)= a weaker function of inlet air 

temperature and pressure 

X is between . 3 and . 6 



If the air flow rate increases or decreases, then the 
fuel flow rate varies in the correct direction, but not 
enough to maintain design fuel-air ratio. This can 
significantly affect propulsive thrust. 

The range of application and the performance of the SFRJ 
could be significantly improved if fuel regression rate 
could be controlled in some manner. Perhaps the most 
obvious method for fuel regression rate control is to use 
variable bypass air flow. 

Bypass designs are often desired in order to increase 
fuel loading, and can also improve combustion efficiency. A 
valve in the bypass line could be used to vary the bypass 
ratio, thus producing changes in the fuel flow rate 
according to equation 1.1. (since only the fuel port air 
mass flux affects the regression rate). However, combustion 
efficiency may vary significantly with the amount of bypass 
air and a control valve must be used in the inlet air 
ducting. In addition, flow coupling may lead to undesired 
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oscillations. Therefore, other fuel regression rate control 
techniques should be persued. 

One possible alternative technique is the use of 
variable swirl at the air inlet. Increased swirl may 
increase the regression rate. This technique would require a 
vane control device. Another possibility is the use of 
secondary injection of air, oxygen or gaseous fuel into one 
or more locations within the combustor. This may lead to 
both increased fuel regression rate and combustion 
efficiency. If oxygen were used it would require an 
auxiliary supply system. Therefore, it would be a practical 
possibility (to maintain simplicity) for a one-time 
augmentation in thrust(at take-over from booster, at 
terminal maneuver, etc). 

In this investigation tests were conducted to examine 
the effects of secondary gaseous injection and inlet air 
swirl on regression rate and combustion efficiency. 

A new ramjet thrust stand was installed in the 
combustion laboratory and required calibration and 
certification. A second part of this investigation was to 
conduct tests using high temperature inlet air and then to 
ensure that combustion efficiencies based on thrust and 
based on measured chamber pressure were in agreement. 
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II. METHOD OF INVESTIGATION 



A. TEST CONDITITIONS AND METHODS 

The experimental investigation was begun by selecting 
several configurations for regression rate control through 
the utilization of secondary injection. It was decided to 
examine secondary injection at three locations through the 
fuel grain wall: in the recirculation zone (flame holder 
area) , just downstream of flow reattachment and further 
downstream within the region of the developing boundary 
layer (in which is located a turbulent diffusion flame). In 
addition, gaseous injection on the inlet step face and inlet 
air swirl were examined. 

Polymethy Imethacry late (PMM) was used as the fuel and had 
a nominal length of 12 inches and an internal diameter of 
1.5 inches. A sudden expansion inlet was used which provided 
an inlet step height of 0.49 inches. 

Flow reattachment normally occurs between 7 and 8 step 
heights (i.e, 3.5 - 4 inches). Thus the three injection 
location chosen where 2, 5, and 8 inches from the head 
end(See Figure 2.1). 

The injection ring was designed to provide radial 
injection through eight equally spaced, 0.0625 inches 
diameter holes(See Figure 2.2 and Figure 2.3). 

Gaseous injection was also used through the inlet step 
face as shown in Figure 2.4 and Figure 2.5. 

Swirl was provided to the inlet air flow through the use 
of a swirl element inlet inj ector (Figure 2.6). 

Initial screening tests of short duration were made in 
which no injection or swirl was used, followed by tests with 
various amounts of gaseous injection or swirl. Those 
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conditions found to significantly affect chamber pressure(or 
thrust) were further evaluated using full-length burn times 
of approximately 30 seconds (in order to accurately 
determine regression rate and combustion efficiency). 



B. DATA COLLLECTION METHOD 



The data collected dur 
tests consisted of air flow 
rates for the injection, 
pressures, weight changes 
air flow time, ignition t 
thrust and ignition gas fl 
thrust were recorded both d 
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Figure 2.1 Fuel Configurations for Side Wall Injection. 
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Figure 2.2 Drawing of Injection Ring for Side Wall Injection. 




Figure 2.4 Step Insert For Gaseous Face Injection. 
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Figure 2.5 Drawing of Step Insert for Gaseous Injection. 





Figure 2.6 Swirl Element Inlet Injector. 

Temperatures were only recorded digitally. Average 
values of the thrust and chamber pressure were determined 
using a compensating polar planimeter on the analog record. 

The mass flow rate of air was obtained by using 
sonically choked nozzles. Average fuel mass flow rate was 
calculated by using the weight loss during the burn time 



Mf = 



A W 



tb 



( 2 . 1 ) 



where — weight change during the run 
tb= burn time 

The average internal diameter of the fuel grain was 
measured prior to the run. The final average diameter was 
determined based on weight loss and fuel length by using 
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"J t j> L 



— z 

+ Di 



( 2 . 2 ) 



where AW = weight change 

L = length of the fuel grain 
y = density of the fuel grain 

= average intial port diameter of the 



PMM grain 



The average fuel regression rate was then computed using 



Df ~ Oi. 
Z tb 



(2.3) 



The mixture ratio, chamber pressure and motor air inlet 
temperature were used as input into the Naval Weapons 
Center(NWC) China Lake, Ca . , Propellant Evaluation 
Program(PEPCODE ) computer program to obtain the theoretical 
adiabatic combustion temperature and the combustion gas 
properties ( Y R) . This temperature was used to calculate 
temperature rise combustion efficiencies based on thrust and 
based on nozzle stagnation pressure, where 




Tt gjtp 

- Ta 



(2.4) 



3.nd ^ p 



combustor stagnation temperature 
theoretical combustor temperature 
inlet air temperature 



Experimental values of combustor stagnation temperatures 
were calculated in two ways, one based on pressure and one 
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based on thrust. The one dimensional continuity equation 
(m= ^ A V) can be expressed in terms of the chamber 
stagnation properties for a choked converging nozzle 




(2.5) 



number) 



where = total flow rate 

Pt = Pc, chamber pressure (for low Mach 



Ath^jjjF effective nozzle throat area 
R = gas constant 



The characteristic exhaust velocity. 



is defined as 



Tint 

where Cp = thrust coefficient 



( 2 . 6 ) 



For a sonically choked exhaust nozzle, 



Hi 

z 



) 



R Tt 



(2.7) 



Using pre-test air flow through the motor, equations 
(2.6)and (2.7) can be used to determine the effective 
exhaust nozzle throat diameter (Dtheff ) 
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Then temperature- rise comustion efficiency based on 
nozzle stagnation pressure can be calculated using c^ 
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( 2 . 9 ) 



where Ca = characteritic exhaust velocity for air 
flow before ignition 

Cexp = experimental characteristic exhaust 
velocity based on Pc, the average combustion pressure 

is obtained from equation(2 . 7 ) using "Y , 
R and Tt from PEPCODE with inputs of Pc, Ta, mcii‘r» '^f > moiS-^d 
■ The latter two flow rates are used in the vitiated 
air heater. 



The thrust equation is 
F = int Ue + (Pe - Po) Ae 



( 2 . 10 ) 



A thrust 



where mt ^ 0 + maH 4 

coefficient, Cp, can be defined such that 



F = Cp Pt Ath 



( 2 . 11 ) 
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where Pe = exit pressure of the nozzle 

Po = ambient pressure. Then for a choked 
converging nozzle, this equation can be simplified to 




a Y 



)( 



Y-H Y + ' 



Y+1 



+ 
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^-1 




(2.13) 



where R and Y ^.re determined using PEPCODE 



Then efficiency based on thrust is calculated from 
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(2.14) 



where Cexp 



ignition) 



record 



= F / (M-t Cpexp) 

Ca = F / (Mpj- Cp ) (determined before 

F = average thrust from analog 

Mpi = pre-ignition flow rate 
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III. DESCRIPTION OF APPARATUS 



A. RAMJET MOTOR 

The ramjet motor assembly used in this experiments was 
that used previously at NPS [Ref. 1, 2]. 

Figure 3.1 shows a schematic drawing of the ramjet, 
illustrating the main sections. These are, the head-end 
assembly, step insert section, fuel grain, aft mixing 
chamber and exhaust nozzle. For the tests with secondary 
injection, the injection ring was used. 

The head-end assemly contains a central opening for the 
introduction of the primary air-flow, and ports for 
introduction of the ignition fuel and tlie igniter torch. 

The fuel wall injection is sliown in Figure 2.1, Figure 
2.2 and Figure 2.3. Injection velocity varied between 
approximately 30 and 200 ft/sec as the injection mass flow 
rate was increased from 1% to 5 % of the inlet air flow. A 
nominal one dimensional flow port velocity was approximately 
300 f t / sec . 

For the face injection tests, air, oxygen or gaseous 
fuel was introduced using a differently designed step 
insert (Figure 2. A and Figure 2.5). The injection was 
provided through eight equally spaced, 0.047 diameter holes. 
For an injection gas mass flow rate equal to 1 % of the 
inlet air flow rate the injection velocity was approximately 
65 ft/ sec . 

To provide a swirl at the air inlet, a specially 
designed insert was used(Figure 2.6). This device was a 
tube-in-hole type injector. Approximately 43 % of the air 
flow passed through the outer annulus to maintain the 
recirculation region/flame holder. The other 57 % of the air 
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flow was passed through a central swirl element which 
extended 0.5 inches into the combustor. The swirl was 
induced by machining six flutes with a twist of one turn in 
five inches . The latter resulted in an inlet swirl angle of 
approximately 5 degrees to the motor centerline. 

During the normal ignition sequence, the air flow rate 
was set at the desired value before the ignition switch was 
activated. When the ignition circuit was activated, ethylene 
gas was introduced upstream of the fuel grain along with 
primary air flow. This mixture was ignited with an 
oxygen-ethylene torch which issued from the face of the step 
inlet. Normally, two to three seconds of ignition time was 
required for PMM combustion to sustain. 

The step insert section was provisioned for variations 
in inlet diameters to make the sudden expansion. The fuel 
grain itself, when mounted in the motor, became the mid-body 
of the ramjet. The fuel grain (and injection ring, if used) 
mounted between the head-end assembly and the aft mixing 
chamber. The aft-mixing chamber had a length- to-diameter 
ratio of 2.9. The entire motor was held together by four 
threaded rods and nuts. The ramjet motor was then mounted 
on the thrust stand. 

B. AIR SUPPLY SYSTEM 



A schematic of the ramjet air supply system is shown in 
figure 3.2. From the air tanks, the air flows through a 
pressure regulator, a sonic choke, a vitiated air heater and 
finally to the head-end assembly. The air flow can be 
either vented into the atmosphere or vented through the 
ramjet motor by the control of two pneumatically operated 
valves . Two flexible air flow lines were used to connect 
the main air line to the air heater. The latter was mounted 
on the thrust stand. 
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Figure 3.1 Schematic of the SFRJ Motor. 
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Figure 3.2 Schmatic of Air Supply System. 





C. AIR HEATER 



To simulate actual flight condition, air should be 
heated to the appropriate stagnation temperature. In this 
investigation ethylene gas used in the air heater. The 
oxygen in the air which is consumed during the heating must 
be replaced before injection into the ramjet cumbustor. 
Figure 3.2 shows a schematic diagram of the air heater. The 
air heater and the ramjet motor assembly were mounted 
together on the thrust stand. 

D. DATA ACQUSITION AND CONTROL SYSTEM 

The primary instrumentation used in this investigation 
consisted of various individual pressure transducers and 
thermocouples and a strain gage load cell for the thrust 
measurement. All transducer outputs were recorded both with 
a Honeywell 1508 Visicorder and HP-9836S computer using a 
HP- 3054 a automatic DATA AQUISITION/ CONTROL SYSTEM. A timing 
reference signal was provided to the analog record by 
feeding a 10 Hz signal from a laboratory signal generator to 
the timing channel of the Visicorder. During the test, the 
HP-9836S computer system was used to record the 
temperatures, and thrust, and calculate the flow rates of 
the ignition gas, purge gas, air heater ethylene and oxygen, 
air and secondary injection gas. It was necessary to record 
the PMM fuel grain weight and inner diameter before and 
after each run. The fuel grain weight was measured using a 
balance. All thermocouples used were chromel vs alumel 
(type K) with electronic ice points. 

The computer was used to both control the test sequence 
and to provide data aquisition during the experiment. Figure 
3.3 is a block diagram of the computer program. (See 
Appendix A. for a complete listing). Data aquisition for 
all fourteen channels were recorded every 0.5 seconds. 
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I Variable definitions and nomenclature 



Transducer calibrations 

main air sonic choke pressure 
chamber pressure 
motor head pressure 

air heater fuel sonic choke pressure 
oxygen make-up sonic choke pressure 
ignition fuel sonic choke pressure 
purge gas sonic choke pressure 
thrust transducer 



Pre-run input 

test number, date 
fuel I.D 

fuel dimensions and weight 
air heater fuel type 
motor throat diameter 
ignition delay time 
ignition time 
buring time 
purge time 

sonic choke diameters, discharge coefficients 
gas contants and desired flow rates 



Flow rates set-up 
main air 
heater fuel 
make-up oxygen 
ignition fuel 
purge gas 



Test and data collection 

pressures and temperature in voltages 



Data extraction 

pressures, temperatures and flow rates 



I Print results 



Figure 3.3 Block Diagram of the Computer 
Data Aquisition/Control Program. 
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IV. EXPERIMENTAL PROCEDURES AND TEST CONDITIONS 



A. TRANSDUCER CALIBRATION 

A dead-weight tester was. used- for the calibration of all 
pressure transducers. Initially all transdusers were checked 
for linearity and the Visicorder(analog) display positions 
were labeled. For the computer data aquisition, voltages 
corresponding to atmospheric pressure and the maximum 
pressure were measured. From these readings a calibration 
constant (K) was determined for each transducer. 



K = 



X/fwax Vpo 



Ptnax 

where Vpmax 



maximum pressure 



pressure 



Vp, 



Pmax 



( 4 . 1 ) 

voltage reading at the applied 
voltage reading at atmospheric 
maximum applied pressure 



The thrust transducer was calibrated in-place by 
appliying known weights to the transducer through a pulley 
system attached to the thrust stand. 

B. FLOW RATES SET-UP 

By use of the computer, the gas flow rates could be set up 
before the hot firing. These were determined from short 
duration flows using the equation 
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M = 



a Km Pt 1- t>< 



z 

ChclC« 






(4.2) 



where km = constant (a function of R andj ) 
C(d = (discharge coefficient 
Pt = total pressure of the gas flow 
Dchoke = sonic choke diameter 
Tf = total temperature of the gas flow 



C. TEST SEQUENCE 

1 . Thrust Stand Calibration 

The thrust stand was calibrated to determine the 
difference between the measured thrust and the actual or 
theoretical thrust. The measured thrust can be in error 
primarily due to the variation in flex-line stiffness with 
changing pressure levels. The process was begun by 
dead-weight calibration of the load cell. Cold air was then 
flowed through the motor with a choked exhaust nozzle. 
Measured thrust was recorded and compared to the theoretical 
thrust. The latter was calculated using Equations (2.11) and 
(2.13). This was repeated for increasing air flow rates and 
for three different exhaust nozzle throat diameter. An 
additional test was made using hot air (1200° R) and a 12 
inches long HTPB fuel grain. This test was conducted in 
order to compare the temperature rise combustion efficiency 
determined by using chamber pressure and by using thrust. 

2. Fuel-wall Inj ect ion Tests 

For the fuel-wall injection tests, three injection 
location were used as discussed above. Each test lasted for 
approximately six seconds, three seconds without injection 
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and three seconds with injection. Air injection mass flows 
of 2, 5 and 7 percent of the main air flow rate were used. 
For oxygen injection, 1.5, 2 and 5 percent were used. Those 
conditions which resulted in the greatest increases in 
chamber pressure/ thrust were repeated with full duration(30 
sec ) tests . 

3 • • Face Inj ect ion Tests 



In these experiments a twelve inches long 
cylindrical ly perforated PMM fuel grain was used. Air 
injection flow rates of 2, 5 and 7 percent of the main air 
flow rate were examined. For oxygen injection, 1.5, 2 and 5 
percent were used. Ethylene was also used with 0.5, 1.25 and 
2.5 percent. Testing methods were identical to those 
discussed above for fuel-wall injection. 

4. Inlet Air Swirl Tests 
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V. RESULTS AND DISCUSSION 



Summaries of the experimental results obtained during 
the initial screening tests are presented in Table 1 and 
Table 2 for fuel-wall and inlet step-face injection 
respectively. Results from the subsequent full duration 
tests are presented in Table 3. 

A. FUEL WALL INJECTION 

In data presented in Table 1 shows that air injected 
through the fuel grain surface was generally detrimental to 
combustion. Air injection rates up to approximately 7 % of 
the inlet air flow rate had little if any effects on 
combustion pressure when introduced downstream of flow 
reattachment. Small amounts of air injected into the 
recirculation zone appeared to provide small improvements. 
The injected air was quite cold (approximately 500° R) and 
therefore could have had a quenching effect on the boundary 
layer combustion. Use of "in-flight” high air should be 
examined in the future. 

Unheated oxygen injection resulted in significant 
increases in combustion pressure, especially when introduced 
into the recirculation zone in small amounts. Based on these 
screening test results two additional tests were conducted 
with test times of approximately 30 seconds. These tests 
were made to examine the effects of 1 % oxygen injection 
into the recirculation region. 

In these tests, a total grain length of fourteen inches 
was used; two inches of PMM , then the injection ring and 
then twelve inches of PMM. One test(Table 3, no. 30) was 
made without injection and one with (Table 3, no. 29). 
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Oxygen injection resulted in approximately a 5 % 
increase in in fuel regression rate (when adjusted for the 
different air flowrate) but a decrease of 21 % in combustion 
efficiency. The recirculation zone is generally fuel rich. 
Thus, oxygen injection should increase the "flame-holder” 
temperature. This was evident during the test from increased 
flame luminosity. 

It is not clear at this point why the combustion 
efficiency decreased or, for that matter, why the precence 
of the ring alone increased combustion efficiency. The 
oxygen injection velocity was approximately 30 ft/sec which 
is less than 30 % of typical recirculation zone, near-wall 
velocities. However, the injected oxygen may have penetrated 
the shear layer. 

Further testing would be benificial, especially using 
HTPB , but at this point it does not appear that fuel wall 
injection of small amounts of air or oxygen is a viable 
method for providing fuel mass flowrate control since 
combustion efficiency was decreased significantly and the 
increase in regression rate was small. 

B. INLET STEP FACE INJECTION 



The data from the screening tests with step-face 
injection are presented in Table 2. Unheated air had no 
significant effect on combustion pressure. Oxygen injection 
resulted in increased flame luminosity in the recirculation 
zone but apparently did not significantly affect downstream 
combustion (even though the overall equivalence ratio was 
approximately 0.7). Injection of ethylene resulted in 
significant increases in combustion pressure. 

A full duration test (Table 3, no. 28) was conducted 
using 1 7o of ethylene with an injection velocity of 
approximately 65 ft/sec. Comparison of the results with 
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those for no injection (Table 3, no. 27) showed that only a 
small increase occurred in fuel regression rate. 

Some of the ethylene apparently escaped the 
recirculation region and burned downstream in the central 
air or in the aft mixing region, resulting in little effect 
on regression rate. 

C. IXLET AIR SWIRL 

Only one test was conducted using inlet air swirl (Table 
3, no. 31). Approximately 43 % of the air was injected 
axially to maintain the recirculation zone flame holding 
ability. This could be reduced to perhaps only 10 - 20 %, 
resulting in more air with swirl. The amount of swirl was 
also intentionally kept small ( 5 degrees from the axial 
direction) to determine if regression rate was sensitive to 
the swirl. 

The small amount of swirl increased the fuel regression 
rate by 15 %. This resulted in an increase in equivalence 
ratio ratio from 0.69 to 0.79 . Some non-uniformity in 
regression rate was also evident. 

These initial results indicate that fuel regression rate 
is quite sensitive to inlet air swirl. Further testing is 
necessary using varying amounts of swirl, but the technique 
appears viable for in-flight fuel mass flow modulation. 

D. THRUST STAND CALIBRATION 

The results from the cold-flow tests for comparison of 
measured and calculated thrust are in Figure 5.1. Excellent 
agreement was attained. A least-square fit of the data 
resulted in the following equation for relating measured 
thrust to the "actual” thrust 



Fa = 1.0149 X Fm + 0.4 



(5.1) 
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where Fa = actual thrust, based on Pc and 
throat diameter 

Fm = measured thrust 

A test was then coducted (Table 3, no. 32) in which HTPB 
fuel was used with an inlet air temperature of approximately 
1200 R. This test was made in order to compare the 
combustion efficiencies based on chamber pressure and based 
on thrust. The two efficiencies were within 5 %, with the 
value based on Pc being greater. This difference is not 
large when it is realized that small errors in determining F 
and Pc from the analog traces are squared when calculating C 
foif the efficiency based on thrust determination. 
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Figure 5.1 Thrust Calibration Curve, Measured vs Actual. 



VI. CONCLUSIONS AND RECOMMENDATIONS 



Additional tests using fuel-wall and step face 
injection of oxygen, gaseous fuel and/or heated air should 
be conducted to verify the initial results found in this 
investigation. However, the initial data from this 
investigation indicates that gaseous injection is not a 
viable tecnique for fuel regression rate control. 

Fuel regression rate was found to be quite sensitive to 
small amounts of inlet air swirl without large changes in 
combustion efficiency. Additional testing is recommended. 
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APPENDIX A 



COMPUTER PROGRAM FOR EXPERIMENT CONTROL AND DATA REDUCTION 



10 



FRJTEST 



20 


ISOLID FUEL RAMJET DATA ACGUISITIOM AND DATA REDUCTION PROGRAM, 


30 


ITNIS PROGRAM IS DIVIDED INTO FIVE PARTS: 


40 


j 


(1) VARIABLE DEFINITIONS AND NOMENCLATURE 


50 


i 


(2) TRANSDUCER CALIBRATIONS 


60 


i 


(3) PRE-RUN INPUTS. FLOW SET-UPS 


70 


j 


(4) THE TEST 


SEQUENCE AND DATA COLLECTION 


80 


i 


(5) POST-RUN OPERATIONS 


90 




100 


Ml) VARIABLE DFTHITIONS AND HQ.^ENCLAT11RE 


no 




120 


1 


SYMBOL 


DEFINITION 


130 


i 


A 


ANALOG CHANNa NUMBER 


140 


i 


CBair 


DISCHARGE COEFFICIENT, IIIR SONIC CHOKE 


150 


j 


Cdhf 


DISCHARGE COEFFICIENT, HEATER FUa SONIC CHOKE 


ISO 


i 


Cdho 


DISCHARGE COEFFICIENT, OXYGEN MAKE-UP SONIC CHOKE 


170 


i 


Cdif 


DISCHARGE COEFFICIENT, IGNITION FUEL SONIC CHOKE 


180 


i 


CdD 


DISCHARGE COEFFICiaT, PURGE GAS SONIC CHOKE 


190 


i 


Cf 


THRUST COffFICIENT 


200 


i 


Cstarth 


THEORETICAL C<. FT/SEC 


210 


i 


CsTarair 


C* FOR AIR FLOU BASED ON Dtheff 


220 


j 


Dairchoke 


AIR SONIC CHOKE DIAMETER 


230 


j 


Dates 


Test Date Mo-Oav-Yr 


240 


i 


Dhfchoke 


AIR HEATER aEL SONIC CHOKE DIAMaER 


250 


i 


Dhocnoke 


OXYGLN MAKE-UP SONIC CHOKE DIAMETO 


2S0 


*1 


Di 


MOTOR INLa DIAMEaR. IN. 


270 


i 


Difchoke 


IGNITION aa SONIC CHOKE DIAMETER 


280 


i 


Do 


MOTOR aa PORT DIAMaER.IN, 


298 


1 


Dochoke 


PURGE GAS SONIC CHOKE DIAMETER 


300 


1 


Dth 


MOTOR EXHAUST NOZZLE THROAT DIAMaER,IN. 


310 


i 


Dtheff 


EFFECTIVE THROAT DIAMaER,IN. 


320 


i 


F 


THRUST 


330 


i 


FuelidS 


aEL IDENTIFICATION 


240 


i 


Gc 


GRAVITATIONAL CONSTANT (32.174) 


350 


i 


HeaterfuelS 


aSL IDENTIFICATION 


3S0 


i 


lonitionfuel? 


SFRJ IGNITION FUa I .D 


370 


i 


K«air 


AIR SONIC CHOKE FLOH RATE CONSTANT 


330 


i 


K«nf 


HEATER .aEL SONIC CHOKE aOH RATE CONSTANT 


390 


i 


Xrtho 


OXYGEN HAKEaP SONIC CHOKE FLOH RATE CONSTANT 


400 


i 


K«if 


IGNITION RJEL SONIC CHOKE RCV RATE CONSTANT 


410 


i 


XrtO 


PURGE GAS SONIC CHOKE FLOH RATE CONSTANT 


420 


i 


Lo 


aEL GRAIN LENGTH, IN. 


430 


i 


Hair 


AIR aO« RATE. L3M/SEC 


440 


i 


Haird 


DESIRED AIR FLOH RATE, Lbn/sec 


450 


i 


Mhf 


HEATER aEL aOH RATE, a«/sec 
DESIRED HEATER aEL FLOH RATE Lbn/sec 


460 


1 


:ihfd 


470 


i 


Mho 


HEATER OXYGEN FLOH SATE, a«/sec 


480 


j 


rthod 


DESIRED HEATER OXYGEN FLOU RATE , Lbn/'sec 


490 


i 


Mif 


IGNITION FUEL FLOH RATE, LbM/sec 


500 


i 


Mifd 


DESIRED IGNITION FUEL FLOU RATE, Lbn/sec 


510 


j 


Mo 


PURGE GAS FLOH RATE, a«/sec 


520 


i 


Mpd 


DESIRED PURGE GAS FLOU SATE , Lbn/sec 
PRESSURE, AIR SONIC CHOKE, Psia 


530 


i 


Pa 


540 


i 


Pbar 


BARO, METRIC , PRESSURE . Psia 


553 


i 


Pc 


PRESSURE, CHAMBER, Psia 


560 


i 


Ph 


PRESSURE, MOTOR HEAD-END. Psia 


570 


i 


Phf 


PRESSURE, HEAia FUa SONIC CHOKE. Psia 


580 


i 


Pho 


PRESSURE HEATER OXYGEN SONIC CHOKE, Psia 


590 


i 


Pif 


PRESSURE, IGNITION FUa SONIC CHOKE, Psia 


600 


i 


Po 


PRESSURE, PURGE GAS SONIC CHOKE, Psia 


610 


i 


PuroeqasS 


PURGE GAS I.D 


620 


j 


Ta ■ 


TEMPERATURE, AIR SONIC CHOKE, R 


630 


j 


TestnoS 


TEST I.D NO. 


640 


i 


Thf 


TEMPERATURE. HEATER aa SONIC CHOKE, R 
TEMPERATURE, OXXYGEN MAKE-UP SONIC CHOKE, R 


650 


i 


Tho 


660 


i 


Ti 


TEMPERATURE, .MOTOR AIR INaT, 8 


670 


i 


Tid 


TEMPERATURE. DESIRED MOTOR AIR INLQ, R 
TEMPERATURE. IGNITION aa SONIC CICKE. R 


680 


i 


Tif 
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690 

700 

710 

7^0 

730 

740 

750 

763 

770 

780 

790 

800 

810 

880 

830 

340 

350 

860 

870 

880 

890 

900 

910 

930 

930 

940 

950 

960 

970 

983 

990 

1000 

1010 

1020 

1030 

1040 

1050 

1060 

1070 

1080 

1090 

1100 

1110 



1m3 

T«b 

T«i 

TrtO 

Ip 

Utfi 



TIME BETyEEH SFRJ AIR FLOW AMD IGNITION, sec 
BURN TIME AFTER Tni, sec 
IGNITION DURATION AFTER Tua, sec 
PURGE DURATION AFTER Tr.b. sec 
TEMPERATURE, PliRAF GAS SONIC CHOKE, R 
INITIAL FUEL GRAIN WEIGHT, Lhn 



BEEP 1000,. 1 
PRINT USING ‘9" 

PRINT USING 'hr 

PRINT * 1.2 Uohs MAXIMUM into Acquisition Syste!''!!' 

IHF. RECORDED VARIABLES (VOLTAGES) AND LOCATIONS ARE; 

(NOTE; THE MAXIMUM ALLOUABIE VOLTAGE INTO THE SYSTEM IS 1.2 VOLTS) 



1230 

1240 

1250 

1260 

1270 

1280 

1290 

1300 



FRIABLE 



3497 DACU SCANNER NUMBER 



Pa“ 

Pc 

Ph 

Phf 

Pho 

Pif 

Ta 

Thf 

Iho 

Ti 

Tif 

To 



u 

0 

1 

3 

4 
6 
7 

5 

9 

10 
11 
9 
12 
13 



ALL FLOU RATES ARE CALCULATED USING THE ONE-DIMENSIONAL, ISENTPOPIC 
FLOIJ EXPRESSIONS UITH FIXED PROPERTIES. SMALL StiNIC NOZllES HAVE 
MFASI.IRED DISCHARGE CnFFFICIENTS. THE AIR FLOV NOZZLE USES AN ASSUMED 
DISCHARGE COEFFICIENT (Cd) OF 0.97. 

rt (LBM/SEC)=Cd»P*A!sK«/T\5 

Kn IS THE GAS-DEPENDENT SONIC CHOKE FLOW RATE CONSTANT 
Kn=SOR((G3firta»Gc/R)*(2/(Gan«3+l))*((GannaH)/(Ganfia-l))) 



1120 

1130 

1140 


1 

j 

1 


APPROPRIATE CONSTANTS ARE: 








1150 

1160 


j 

i 


GAS 


.MOLECULAR UT. 


GAS CONST. 


CP 


GAMMA 


Kn 


1170 


i 


AIR 


29.0 


53,3 


.240 


1.40 


,5320 


1180 


i 


02 


32,0 


43,3 


,217 


1 ,40 


,5589 


1190 


i 


CH4 


16,03 


96,4 


.593 


1.32 


.3976 


1200 


i 


C2H4 


28.03 


55.1 


.400 


1 ,22 


,4985 


1210 

1220 


j 

i 


ARGON 


39,9 


38.7 


.124 


1.67 


.6626 



1310 Tcalc; 
1320 
1330 
0)t560 
1340 
7H660 



ALL THERMOCOUPLES USED ARE CHRCMEL us AlUMFL (TYPE K) WITH 
EIECTRONIC ICE POINTS. TEMPERATURE READINGS (VOLTAGES) ARE 
CONVERTED TO DECREES RANKINF (R) PER ■INDUSTRIAL INSTRUMENTATION' BY 
D.P. ECk'MAN (PAGE 369). THIS CALCUl ATION IS PERFORMED IN SUPROIlTlNE 
Tcalc. TEN VOLTAGE INTERVALS ARE USED BFiyEEN 460 AND 1460 R, 
Gc=32.174 

Ko=0 ! POST RUN CONTROL FLAG 

GOTO Transcal 



! 

IF Volts(. 00153 THFN T=((Uolts+. 00068)/. 00002201+460 
IF Volts)=. 00153 AND Valts(. 00332 THEN T=( (Volts- . 00153)/. 000023 

IF Volts>=.003B2 AND Volls(. 00609 THEN T=((Volts-. 00382)/. 000022 
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r V-1’5)=,0160? and t'olts(,0CS31 THEN T=(('J.)lt5-.0060?)/.B!!!)822 
IE V-!t:O=,0383! AMD Volt5(,3!05c THEN T=((yolts-. 03831 )/. 000022 
IF Vo)t^>=.01C5S AND Voltsl. 01285 THEN T=( (Volts-, 01056)/, 000022 




3) +l060 
1390 

4) + H6? 

\m 

6) + 12.60 

HIO 

7)+1360 

1420 

1430 RETURN 
1440 Tfohijh: 



IF Volts), 02225 THEN GOTO Toohiqh 




IF Volts>=, 01983 AND Volts(, 02225 THEN T=((Volts-, 01988)/, 000023 




1460 

1470 

1480 

1190 

1500 

1510 



PR INF "TEMPERATURE SET AT 1468 R* 
PRINI 'I=*,I 




1 520 Frrs.:al; i 

1530 »»»*!(>*»***»»**»**»*»***»»*»*»*»<*)(*«»*»****»»» *«x»**»* 

1540 ", 3) iFA‘s:..:n cplibrations 

1550 ' M. is j<*<» »»*»*» *»)()(*«»»*»!*»)!*»*)()(**» X*****!! t»»y» »<)()(**)()(»*» 

1560 'IH-RF APE 6 PRESSURE TRANSDUCERS AND ONE LOAD CELL FOR TH'UST WHICH 
1570 II-jST EE CALIPRAIED, TRANSDUCER LINEARITY HOST EE VERIFIED EEFORE THIS 
1580 5^ALIERA!irN PROCEDURE IS EMPLOYED, THE ORDER OF CALIBRATION IS AS 
1590 'FOLIOWS: F^, Pc Ph, Phf, PHo^ Pif, Po, F 

1600 MHE FOLLOVUiG TOO LINES SET UP 722 AND 709 FOR DAIA ACQUISITION" 

1610 CLEAR 709 ! CLEAR 3497A DATA ASIHSITION.'COHIROL UNIT 

1620 CLEAR 722 ! CLEAR 3456A DIGITAL VOLINETER 

1630 RE.-iOFE 709 ' HAKE 3497A UNIT TO REMOTE MODE 

1640 CL'PIJT 722:’LlR3!STN2110STlI4gXl* ! 10 READING PER TRIGGER AND STORE 

1650 Pacal; ! 

1660 »»******»»»*» 
1.670 PRINT "xs CALI6RATI0N OF Pa, THE AIR SONIC CHOKE PRESSLIRE IRANSBUCER” 

1630 • X»XXXXXXXXXiXXXXXXXX»XXIX*XXX»»»XX*XXXXXXXXXXXXXXXXXX*XXXX»XXX*XXXXX*X 

1690 PaOcal: ' 

1700 PRINT • x*xx» ZERO PRESSURE *«*»»• 

1710 PRINT "INSURE THAT NO PRESSURE IS APPLIED TO THE TRANSDUCER" 

1720 DISP "HIT CONTINUE WHEN READY TO TAKE ZERO READING" 

1730 PAUSE 
1740 REMOTE 709 

1750 OUTPUT 709; "AC2" ! AQ’JIRE CHANNEL 2 

1760 WAIT 2 

1770 OUTPUT 722;"T3" ! IHITAIE SINGLE TRIGGER 

1780 ENTER 722;Voa0 ! READ VOLTAGE 

1790 PRINT "Vpa0=";Vpa0 
1800 BEEP 

1819 INPUT "READI.NG W (Y/N)",Zz4 

1820 IF Z:$=’N" THEN GOTO PaOcal 

1830 Panaxcal ; ! 

1840 PRINT USING ! CLEAR SCREEN 

1850 PRINT • »*»»x CALIBRATION »xxxx" 

1360 PRINT "APPLY MAXIMUM PRESSURE USING THE DFAD-UEIGHT TESTER" 

1.370 INPUT "ENTER THE MAXIMUM PRESSURE IN psig",Panax 
1890 DISP "HIT CONTINUE WHEN READY" 

1890 PAUSE 

1900 REMOTE 709 

1910 OUTPUT 709;"AC2" 

1920 WAIT 2 

1930 OUTFUI 722; "T3” 

1940 ENTER 722;Vpa«ax 

1950 PRINT "Vpanai=";Vp3nax,"P3fiar= ";Panax 
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I960 i(D3=(Pa«ax)/(Vr.anax-VpdO) 

19711 PRINT 'Kpa= ‘iKpa 
19S0 BEEP 

1990 INPUT "READING CK? <Y/N>",ZiT 
2900 IF Z 2 S=“N* then GOTO Fanaxcal 
2010 Prcal;! 

2020 !< t*********************************)!************** »*»****» »»»»»* 

2330 PRINT "eCALIBRATION OF Pc, THE SFRJ MOTOR CHAMBER PRESSURE TRANSDUCER** ‘ 
2050 PcOcal; ! 

2060 PRINT 'nu ZERO PRESSURE *»**" 

2070 PRINT "INSURE THAT NO PRESSURE IS APPLIED TO THE TRANSDUCER" 

2080 DISP "HIT CONTINUE UHEN READY" 

2090 PAUSE 
21 CO REMOTE 709 
2110 OUTPUT 709; "ACfl" 

2120 WAIT 2 

2130 OUTPUT 722; "T3" 

2140 ENTER 722;Uoc0 
2150 PRINT "Vpc0=";Upc0 
2Ifc0 PEE? 

2170 INPUT “READING OK? (Y/N)",Z:t 
2130 IF Z;i="N" THEN GOTO PcOcal 
2190 PcNaxcal: ! 

2200 PRINT USING 

2210 PRINT " **** CALIBRATION ***** 

2220 PRINT "APPLY THE MAXIMUH PRESSURE USING DEAD-WEIGHT TESTER* 

2230 INPUT "ENTER THE HAXIKUH PRESSURE IN psiq",Pcflax 
2240 DISP "HIT CONTINUE WHEN READY" 

2250 PAUSE 
2260 REMOTE 709 
2270 OUTPUT 709; "ACO" 

2280 WAIT 2 
2290 OUTPUT 722; "T3" 

2300 ENTER 722;Upcr.ax 

2310 PRINT 'Vpc«ax=";Upc«ax,"PcHax=";Pchax 

2320 KDC=Pcfiax/(Upc«3x-'y'oc0) 

2330 PRINT "Kpc= ‘’;Kpc ' 

2340 BEEP 

2350 INPUT "READING OK? <Y/N)",Zi$ 

2360 IF Z2t="N* THEN GOTO Pcnaxcal 
2370 Phcal:! 

23S0 I **<*x***x**i**<***<t***sx*»»»x»*xxx***»x»»*»****x**x*x»)(»»*»»ix **»*»*;. xx 
2390 PRINT ■**CALIP.RATION OF Ph, THE SFRJ .MOTOR HEAD-END PRESSURE TRA.NSDIICEIl* * " 
2400 >*t***»*t****t**X*»*X**Xt*l*»*****X*<X**»*»***»)!»»*X***»X*****)(X*»**»*S:X» 

2410 PhOcal: ! 

2420 PRINT "****ZERO PRESSURE****" 

2430 PRINT "INSURE THAT NO PRESSURE IS APPLIED TO THE TRANSDUCER" 

2440 DISP "HIT CONTINUE WHEN READY" 

2450 PAUSE. 

2460 REMOTE 709 
2470 OUTPUT 709; "ACr 
2430 WAIT 2 
2490 OUTPUT 722; "T3“ 

2500 ENTER 722;Vph0 
2510 PRINT "Uph0=";Vph0 
2520 BEEP 

2530 INPUT "READING OK? (Y/N)",Z:$ 

2540 IF Zit=’N" THEN GOTO PhOcal 
2550 Ph«axcal : ! 

2560 PRINT USING "8" 

2570 PRINT "****CALIBRATION****" 

2580 DISP "APPLY THE MAXIMUM PRESSURE USING DEAD-WEIGHT TESTER" 

2590 INPUT "ENTER THE MAXIMUM PRESSURE IN Psiq’.Phnax 
2600 DISP "HIT CONTINUE WHEN READY" 

2610 PAUSE 
2620 REMOTE 709 
2630 OUTPUT 709: "AC1" 
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2s40 
2fc50 
2£iG 
2S70 
2iS0 
26?0 
2700 
2710 
2720 
2730 Phfcal; 



722;’T3' 

lOT ,tl- 



WIT 2 
OUTrUT 

E,‘iT£R 722;','phft.jx 
PRINT ■Vphnax=‘;yph«ax,‘Ph«3x=' 
Koh=P^«ax/(Vph?i3x-VphC) 

PRINT •Kph=‘;l(ph 
BFEP 

INPUT ‘READIHG OKI <Y/N>’,Zz$ 

IF ZzT="N' THEN GOTO Phnaxcal 



;Phnax 



2740 !**xx*i*x*)(»*x*x»)(***»*itxt^***si»xi(s»»**x**xi(<*»*»*)(»»i**i(*x*if<xa**»i(* X 
2750 PRINT ■^^CALIBRATION OF Phf, THE AIR HEATER FUEL PRESSURE TRANSDUCER^: “ 
27 a 0 l*XX*tt»*X*X*S»XiHf!f***'X*X*»»»*i(>**XXli**X*iXi*XX**XX**X»!H*«it**»»XX»iX< 
2770 PhfOcal: ! 

2730 PRINT 'xx-xsIERO CALIBRATIOHiftxx' 

2790 PRINT ‘INSURE THAT NO PRESSURE IS APPLIED TO THE TRANSDUCER" 

2330 PI 5 P ’HIT CONTINUE WHEN READT" 

2810 PAUSE 
2320 REnGTE 709 
2830 OUTPUT 709 ; 'AC 3 ' 

2840 OUTPUT 722; “T3' 

2850 ENTER 722;(»phf0 

2980 PRINT ■Uchf!l=';yphf 0 

2870 INPUT "READING OK 7 (Y/N)*,Zi$ 

2830 IF Zz$=:‘N' THEN GOTO PhfOcal 
2890 Phf,iaxc 3 l: ! 

2930 PRINT USING '9‘ 

2910 PRINT ’JxxifCALIBRATIONxxif*' 

2923 PRINT 'APPLY THE rtAXIHUN PRESSURE USING DEAD-yEIGHT TESTER* 

2930 INPUT “ENTER THE NAXIHUM PRESSURE IN p 5 iq",Phf,iax 

2943 DISP 'HIT CONTINUE UHEN READY* 

2950 PAUSE 
2983 RENCTF 709 
2970 OUTPUT 70 ?;*AC 3 * 

2980 OUTPUr 722; *T3* 

2990 ENTER 7 ^ 2 ; 03 hf«a^ 

3033 PRINT ■Uphfnax=*;Vphfrtax *Phf«ax=";Phfnax 
3010 Xphf=Phf(xax/( v'phr nax-Upht 3 ) 

3023 P^NT *Kphf=’;Kphf 
303 C BEEP 



3040 INPUT 'READING 0X7 (Y7N)",Zz» 
3050 IF Z:t='N* THEN GOIO Phfnaical 



3083 Phocal:! 



3070 ii(<x*xxx»»xx»*if**x***«**»*x»»»**»i*»*if<*xx»*»»»is***xx***iH«i(***»»x***x*<* 
3080 PRINT 'xxCALIBRATION OF Pho, THE AIR HEATER OXYGEN PRESSURE TRANSDUCERJx " 

3090 ' XXXXXX»XX»t»XXXXXXXXXX***XX*XXX»XXXlXXXX*XXXX-»XXX*XX*X»»**XXXXX»XXXXX»XX» 

3108 PhoOcal; ! 

3110 PRINT 'xxxxZERO CALIBRATIONxixx' 

3120 PRINT 'INSURE THAT NO PRESSURE IS APPLIED TO THE TRANSDUCER" 

3133 DISP 'HIT CONTINUE WHEN READY' 

3K0 PAUSE 
3150 REMOTE 709 
3180 OUTPUT 709;'AC4' 

3170 OUTPUT 722; 'T3' 

3180 ENTER 722;C'phoO 

3190 PRINT 'VphoO=';VphoO 

3200 INPUT 'READING nK7 <Y/N>',Zz$ 

3210 IF Zz4='N' THEN GOTO PhoOcal 
3220 Phoflaxcal; ! 

3233 PRINT USING '?' 

3240 PRINT 'xxxjCALIBRATIONx***' 

3250 PRINT 'APPLY THE MAXIMUM PRESSURE USING DEAD-WEIGHT TESTER' 

3280 INPUT 'ENTER THE MAXIMUM PRESSURE IN psiq',Pho/iax 

3270 DISP 'HIT CONTINUE UHEN READY* 

3280 PAUSE 
3290 REMOTE 709 
3330 OUTPUT 709; 'AC4' 

3310 OUTPUT 722!'T3' 
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33?0 ENTFR 722',ypho«ax 

3330 PRINT ■VphoHax=‘;Vphonax,*PhoHax=‘;Phof3x 
33-tfl Kaho^PhcfidX/IVphonax-VphoO) 

3350 PRINT "Kpho=’;kpho 
3360 PEEP 

3370 INPUT 'READING OK? (Y/N>",Zz$ 

3380 IF Z2$='N' then GOTO Phonaxcal 
3390 Pifcali! 

3400 I X»** XX *»*)(»** xx <»»»***» lS**)i»*****»»*»X ***»)( *»»**»»*»* 
3410 PRINT "xxCALIBRATION OF Pif, THE SFRJ IGNITION FUFJ. PRESSURE TRANSDUfERxx ' 

3420 IX*X**X»XXXXXXXiXXX»XXXlXXXXXX*XXXXXXX XXXHXX-XXXX XX»tXXXXXtXXXXXXXX»X*XXXX 

3430 PifOcal; ! 

3440 PRINT 'xxxxZERO CALIPRATIONxxxx* 

3450 PRINT 'INSURE THAT NO PRESSURE IS APPLIED TO THE TRANSDUCER' 

3460 DISP "HIT CONTINUE WHEN READY' 

3470 PAUSE 
3480 REMOTE 709 
3490 OUTPUT 709;'AC6' 

3500 OUTPUT 722; 'T3' 

3510 ENTER 722;0p if 0 

3520 PRINT 'VBif0^";Upif0 

3530 INPUT 'READING OK? (Y/N)',Zz$ 

3540 IF Z:$='H" THEN GOTO PifOcal 
3550 Pifnaxcal; ! 

3560 PRINT USING 

3570 PRINT 'xxxxCALlBRATIOtfxxxx' 

3580 PRINT 'APPLY THE HAYIKIIM PRESSURE USING DEAD-UFIGHT TESTER' 

3590 INPUT 'ENTER THE HAXIHIIH PRESSURE IN p5ig',Pif«ax 
3600 DISP 'HIT CONTINUE WHEN READY' 

3610 PAUSE 

3620 REMOTE 709 
3630 OUTPUT 709; 'ACS' 

3640 OUTPUT 722; 'T3' 

3550 ENTER 722;('pifnax 

3660 PRINT 'Upif(iax=';Vpifnax.'Pifnax=';Pifnax 

•3670 Knif=Pifnax/(Upifnax-Upit 0) 

3680 PRINT "Kpif=';Kpif 
3690 BEEP 

3700 INPUT 'READING OK? (Y/N)',Zz$ 

3710 IF Zz$='N' THEN GOTO Pifnaxcal 
3720 Ppcal: ! 

3730 I xxx»xxx»xx*xx*xxxxx»x*xx*»xxxxxxxxxxxxxxxxxxxxxxxxtxx*»xxxxxx*xtxx*» 

3740 PRINT 'XXCALIBRATION OF Pp, THE SFRJ PURGE GAS PRESSURE TRANSDUCERxx ' 

3750 !xxxxxtx»x*x»xxxxxix»xxxxx*xxx*xxxxxxxxxx*xxxxx»xx»*xxx»»xxxxxx»xxxx* 

3760 PoOcali ! 

3770 PRINT 'xxxxZERO CAlIBRATIONxxxx- 

3780 PRINT 'INSURE THAT NO PRESSURE IS APPLIED TO THE TRANSDUCER' 

3790 DISP “HIT CONTINUE WHEN READY' 

3800 PAUSE 
3810 REMOTE 709 
3820 OUTPUT 709;'AC7" 

3330 OUTPUT 722; 'T3' 

3840 ENTER 722;VppO 

3850 PRINT ■Vpp0='^;L'pp0 

3860 INPUT “READING OK? (Y/N)',Zz$ 

3870 IF Zz$='N' THEN GOTO PpOcal 
3880 PcMdXcal: ! 

3890 PRINT USING 

3900 PRINT “xxxxCALIBRATIONxxxx' 

3910 PRINT 'APPLY THE HAXIHUH PRESSURE USING DEAD-WEIGHT TESTER' 

3920 INPUT 'ENTER THE HAXIMUM PRESSURE IN psio'.Ppnax 
3930 DISP “HIT CONTINUE WHEN READY' 

3940 PAUSE 

3950 REMOTE 709 

3960 OUTPUT 709; 'AC7' 

3970 OUTPUT 722; 'T3' 

3980 ENTER 722;0ppnax 

3990 PRINT "JoDnax=';UDtinax,'Ppnax=':Po(iax 
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4000 Kop=?p«3x/(Vpn«ax-'«'np0) 

4010 PRINT *>!pp=‘;i(pp 
4520 BEEP 

4031) INPUT ‘READING CRT (Y/N)‘,Z7$ 

4040 IF Zz$="N‘ THEN GOTO Ppnaxcal 
4050 Fcal: ! 

4060 IF Ff=0. THEN GOTO Endcal 

4030 PRINT ‘stsCALIBRATION OF F, THE THRUST STAND LOAD CELL<»‘ 

4090 l**SXX*XX'**X*XX**X»*»»*X»*»<*X**XXX**XXIXXX**XXX*X*j(X*XX<»XX**Si(»«XX*X 

4100 FOcal: ! 

4110 PRINT ‘**x*ZERO CALIERATIONi***’ 

4120 PRINT ‘INSURE THAT THE 'ZERO' TARE HEIGHT IS ON THE TRAY‘ 

4130 DISP “HIT CONTINUE NHEN READY‘ 

4140 PAUSE 

4150 REMOTE 709 

4160 OUTPUT 709;‘AC5‘ 

4170 OUTPUT 722; ‘T3‘ 

4180 ENTER 722;(if0 

4190 PRINT “yfO=‘;VfO 

4200 INPUT “READING OR7 (Y/N)",Z7$ 

4210 IF Z:$=‘N‘ THEN GOTO FOcal 
4220 Fnaxcal: ! 

4230 PRINT USING ‘3‘ 

4240 PRINT “*x*?!CAl IERATION«*»‘ 

4250 PRINT ‘APPLY HAXIHUN UEIGHT TO THE TRAY‘ 

4260 INPUT "ENTER THE NAXIhUH HEIGHT IN LBS‘,Frtax 
4270 DISP “HIT CONTINUE UHEN READY' 

4280 PAUSE 
4290 REMOTE 709 
4300 OUTPUT 709;‘AC5‘ 

4310 OUTPUT 722) ‘T3‘ 

4320 ENTER 722;(lfi<ax 

4330 PRINT ‘'v'frtax=‘;Vf«ax/FP!ax=’;Fnax 

4140 Kf=Frax/('Jfftax-VfO) 

4350 PRINT ‘Rf=‘;Kf 
4360 BEEP 

4370 INPUT ‘READING OR? <Y/N)‘,Zzi 
43S0 IF Zzt=‘N‘ THEN GOTO Fnaxcal 
4390 Endcal I ! 

4400 PRINT ‘THIS ENDS THE CAI IBRATIONS ‘ 

4410 l*t*»i»5(*»»»»i(*X*i(i!<*ii<i!»XIXttX*X»**»**ii*»*»«*****Xi(*»»**»H*'!<»*****»!( 

4420 !(3) PRE-RUN INPUTS, FLOW RATE SET-UP 

4440 !A, PRE-RUN INPUTS 

4450 !*t»xx*xxx********xx***»i»*x**xx*xxx*xx-*x*x***«**xxx**x**»****x*x*sx»x 

4i60 Inoutvariatlas: ! 

4470 INPUT ‘DO YOU WANT TO INPUT NEW VARIABLES <Y/N)‘,Yy$ 

4480 IF YvJ=“N“ THEN GOTO Nochanqe 

4490 PRINT ‘INPUT THE FOLLOWING TEST VARIABLES' 

4500 PRINT ‘STRING VARIABLES MUST BE ENCLOSED IN BUOTATION NARRS' 

4510 INPUT ‘THE TEST IDENTIFICATION NUHE;ER,A STRING VARIABl E‘ ,TestniJ$ 

4520 INPUT "TODAY'S DATE AS HO, DAY, YEAR, A STRING VARIABLE “.DaleO 

4530 INPUT ‘THE BAROMETRIC PRESSURE ‘.Pbar 

4540 INPUT ‘THE FUEL IDENTIFICATION. A STRING VARIABl E ‘.Fuehdl 

4550 INPUT ‘THE AIR HEATER FUEL TYPE, A STRING VARIABl E ^HeaterfuqU 

4560 INPUT ‘THE SFRJ IGNITION FUEL TYPE, A STRING VARIABLE ", lonitionfuelS 

4570 INPUT ‘THE PURGE GAS TYPE, A STRING VARIABLE ‘.Porqeqasi ' 

4590 INPUT ‘THE. INITIAL FUEL GRAIN WEIGHT (LBH)‘,Utfi 

4590 INPUT ‘THE INITIAL FUEL GRAIN INTERNAL DIAHtTER (IN)”, Dp 

4600 INPUT ‘THE INITIAL FUEL GRAIN LENGTH (IN)‘,Lp 

4610 INPUT ‘THE AIR INI FT DIAMETER (IN)‘,Di 

4620 INPUT ‘THE MOTOR THROAT DIAHETER (IN)‘,Dth 

4630 INPUT ‘THE DESIRED AIR INLET TEMPERATURE (R)‘,Tid 

4640 INPUT "THE DESIRED IGNITION DELAY TIME (5EC)‘,Ifla 

4650 INPUT ‘THE DESIRED IGNITION TIME (3EC)‘,T«i 

4660 INPUT ‘THE DESIRED BURN TIME (SEC)‘,Tnb 

4670 LNPUT ‘THE DESIRED PURGE TIME (SEC>M«o 



4680 INPUT ’THE AIR CHOKE DISCHARGE COFFFICIENTVCdair 

4699 INPUT 'THE AIR HEATER FUEL CHOKE DISCHARGE COEFFICIENT' ,Cdhf 

4700 INPUT 'THE AIR HEATER OXYGEN CHOkE DISCHARGE COEFFICIENt' ,Cdho 
4710 INPUT "THE IGNITION GAS CHOKE DISCHARGE COEFFICIENT' ,Cdif 
4720 INPUT “THE PURGE GAS CHOKE DISCHARGE COEFFICIENT' ,Cdp 

4730 INPUT 'THE AIR HEATER FUEL FLOW RATE CONSTANT ,Krthf ,|(«hf 
4740 INPUT "THE IGNITION GAS FLOU RATE CONSTANT, K/iif'.Kflif 
4750 INPUT 'THE PURGE GAS FLCU RATE CONSTANT, Knc'.Kn? 

4760 INPUT 'GAMNA FOR HEATER FUEL .GanNahf .Gaawahf 

4770 INPUT 'GAHHA FOR IGNITION FUEL, Gart«aif ' ,Ga«naif 

4780 INPUT 'GANNA FOR PURGE CAS, GaMaD',Ga»^nap 

4790 INPUT 'GAS CONSTANT FOR HEATER FUEl .Rhf (ft .lbf/Ihn.R)',Rhf 

4800 INPUT “GAS CONSTANT FOR IGNITION FUFL ,Rif (ft . Ibf/Ibn.R) ',R if 

4810 INPUT 'GAS CONSTANT FOR PURGE GAS, Pp(ft ,Ibf/!h«.R)',Ro 

4820 INPUT "THE AIR CHOKE DIANETER,Dairchoke ( wl'.Dairchake 

4330 INPUT 'THE HEATER FUEL CHOKE DlArtETER,Dhtfuchoke(in)',Dhfchoke 

4840 INPUT 'THE IGNITION OXYGEN CHOKE DIAN£TER,Dht!ixch8ks(in)" .Dhochoke 

4850 INPUT 'THE IGNITION FUEL CHOKE DIArtFTER,Dianfuchokp(in)',l!ifchake 

4860 INPUT 'THE PURGE CHOKE DIAi1ETER.DDur.techoke(in)',Dpchoke 

4370 INPUT 'THE DESIRED HASS FLOU RAIE OF AIR,Haird(lb.i7sGc)',Maird 

4880 INPUT 'THE DESIRED HASS FLOU RATE OF heater FU£L,Hhfd(lb«/s^c)'.HF,fd 

4390 INPUT 'THE DESIRED HASS FLOU RATE OF heater OXYGEN, Hhod(lb»i/ 5 ec) ' ,Hhod 

4900 INPUT 'THE DESIRED HASS FLOU RATE OF IGNITION FUEL,Hifd(lbs/ser.)',Hifd 

4910 INPUT 'THE DESIRED HASS FlOU RATE OF PURGE ,Hrd(Ibfi/3ec)',Hcd 

4920 INPUT 'THE INJECTION GAS,InjectQa'-.“,In,)ectqa5$ 

4930 I »«»»»»»»»»*»«» »»**»* 

4^40 !* CHECK THE INPUT DATA » 

4950 ! «*»»******»» »<*»*»»*)(* 

4960 Chancel: ! 

4970 PRINT USING '0“ 

4980 PRINT USING '14A,9A,5X,14A,9A,5X,14A,9A,2X,14A,DDDD.DDDD';'Testna=';Te3tno 
V *Date=':0ate4 , 'Fuelid$=‘ ',FueIid$, Tbar=";Fbar 

4990 PRINI USING '14A,9A,5X,14A,9A,5X,14A,9A,5X,14A,9A';'HeaterfueI=';Heaterfue 
li, "Iqniticr,fuel=' ; Iqnitionfuel t, 'Purae oas=";Purneoasi 

5000 'PRINT USING *l4A,DDDDDDD.DI;DD,5X,l4A,DDDD.Dl)DD,5X,14A,DDDD.DDDD';'Utfi=';y 
tfi,"DD=“;Do,'Lo=':Lp 

5010 PRINT USING M4A,DnDD.DDDD,5X,14A,Di)DD.D&DD';'Di = ';Di,'Dth=';Dth 

5020 PRINI USING '14A,DDDD.DDD0,5X,14A DDDD,DDDD,5X,14A,DODO.CDDO,2X,14A,DD!)D.D 

DDD' ; 'Tfia=";Trta , 'Tni='; T«i , 'Tnb=* ;Tnb, "Irip=';Tnp 

5030 PRINT USING "14A,DDDD.DDDD,5X,14A,DDDD.DCDD';“DairchokG=';Dairchoke,'Dhtfu 
choke=’;Dhfr.hoke 

5040 PRINT USING '14A,DDDD.DDDD,5X,14A,DDDD.DDDD';'Dhtoxchoke=';Dhi)choke, 'Dianf 
uchoke=";Difchokp 

5050 PRINT USING '14A,DDDD,DDDD';'Dpurqechoke=':Dpchoke 

5060 PRINT USING '14A, DODD, DDD0,5X,14A,DDDD.DDDtl,5X,14A, DODD, CDDO';'Cda:r=“;Crla 
ir 'Cdh=';Cdhf,“Cdho=';Cdho 

5070 PRINT USING '14A,DDD0.D0DD,5X,14A,DDDD.DDDD'i'CdD=':Cdn,'Cdif=“;Cdif 
5030 PRINT USING “14A,DDDD,DDDD,5X.14A,DDDD.DDDD,5X,14A,bDOD.DDDD';'Gin«ahf=";G 
awnahf , 'Ganna if=';Gan.*ia if 

5090 PRINT USING •14A,ODDD.DDDD';'Gannap=';Gsn«ap 

5100 PRINT USING '14A,DDDD,DDDD,SX,14A,DDDi),D0DD,5X,14A,DDDD.DDDD';'Rhf=';Rhf ,' 
^Rd***Ro 

5110 ’PRldl' USING '14A,DDDD,DDDD, 5X,14A, DODD. DDDD,5X,14A,DDDD,CDDD';'Knhf=“;Kflhf 
,'Knif=';Knif,'Knp=')Krtp 

5120 PRINT USING •l4A,DDDD.DDDD,5X,14A,DDDD.DDDD';'Xnho='|Knho,'Knair=';Knair 
5130 PRINT USING '14A,DDDD.DDDD,5X,14A,DDDD.DDDD“ ; 'Haird=‘;Haird 'Ttd=';Tid 
5140 PRINT USING ■14A,DDDD,DDDD,5X,14A,DDDD,DDDD.5X,14A,DDDD.DDDD,2X,14A,DfiID.D 
DDD';'Hhfd=*;Hhfd,'Hhod=';Hhod,'hifd=';Hifd,"Hpd='’;.1pd 
5150 PRINT ‘INIFCTIGN GAS IS',In,jectQast 

5160 !»«»*X»X*X»HXX»*Xt*»»»*»X*»*XJ»XXXX»»X»X*»*»»X-««X*»»»X-*!i»*X»»X»XU**-<X> t XX 

5170 !* UARIABLE CGRRECTION 

5190 PRINT USING '4/' 

5200 PRINT 'CHECK AIL VALUES' 

5210 DISP “HIT 'CONTINUE' TO PROCEED TO CORRECTION OR NEXT SUBROUTINE' 

5220 PAUSE 

5230 INPUT 'VARIABLE OK7 (Y/N)',Z:S 
5240 IF Z 2 $='N* then GOTO Chanqe^ariable 
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5250 IF Z7$=T then GOTO Nochanqe 
5?&0 Ch^nosvariable; ! 

5270 PRINT •INPUT gASIABLE NAHE= CORRECTED Wh! UE‘ 

5220 PRINT “A STRING VARIABLE HOST BE F.NCIOSFO IN QUOTATION NARKS' 

5290 DISP 'HIT EXECUTE AND THEN CONTINilE AFTER CORRECTION ' 

5300 PAUSE 
5310 GOTO Chanqel 
5320 NochariQc;! 

5330 l*»**»»lt»*)()l-**jf<**»«)!*****i(i(»*»*»***X-iii»lf»******»!(»»*****i(**********»)H(*»» 

5340 ! B, FLOU RATE SET-UPS 
5360 PRINT USING '8“ 

5370 INPUT 'DO YOU WANT TO PRESET THE AIR FLOU RATE7<Y/N>' ,Zi$ 

5320 IF Zr$=-N“ THEN GOTO Paskip 

5390 PRINT 'SET THE DESIRED VALUE OF Pd(psio) USING THE HAND LOADER /PRESSURE G 
AGE' 

5400 PRINT USING '3/' 

5410 PRINT 'THE HAND LOADER SHOULD BE 20 PSIG MORE THAN DESIRED PRESSURE' 

5420 Paset; ! 

5430 PRINT USING '3/' 

5440 PRINT 'HANUALIY INITIATE AIR FLOW BY TURNING 'HAIN AIR' TO 'ON' AND PUGHI 
NG 'PRI' ON CONTROL PANEL' 

5450 DISP 'HIT CONTINUE WHEN READY' 

5460 PAUSE 

5470 WAIT 3 

5420 OUTPUT 709; 'AC2' 

5490 OUTPUT 722; “T3" 

5500 ENTER 722jVpa 

5510 OUTPUT 709;’AC9' 

5520 OUTPUT 722;’T3" 

5530 ENTER 722;Uta 

5540 OUTPUT 709;'AC0“ 

5550 OUTPUT 722;'T3' 

5560 ENTER 722jVpc 

5570 OUTPUT 709;^AC8' 

5525 OUTPUT 722: 'T5' 

5590 ENTER 722:Vti 

5603 OUTPUT 7(i9;'AC5' 

5610 OUTPUT 722; 'T3' 

5620 ENTER 722;Vf 

5630 CLEAR 709 

5640 OUTPUT 709;'DC10,1' ! DIGITALLY CLOSE CIRCUIT 1 

5650 WAIT 1 

5660 OUTPUT 709;'D010,1' ! DIGITALLY OPEN CIRCUIT 1 

5670 BEEP 

5620 PRINT 'TURN OFF 'HAIN AIR'' 

5690 DISP 'HIT CONTINUE TO PROCEED' 

5700 PAUSE 

5710 Pa=(Upa-VpaO)«Kpa+Pbar 

5720 Pc-(Vpc-VpcO)*Kpc+Pbar 

5730 Volts=Vta 

5740 GOSUB Teak ! CONVERSION FROH VOLTAGE TO TFHPERATURE 

5750 Ta=T 

5760 Volts=Vti 

5770 GOSUB Teak ! CONVERSION FROH VOLTAGE TO TEMPERATURE 

5780 Ti=T 

5790 Hair=K(iair»Cdair»Pa*.7854»(DairehokB*2)/(Ta* .5) 

5800 PRINT USING '8' 

5810 PRINT USING •5A,2X,DDD,DDDDD';'Hair=';Hair 

5820 PRINT USING 'ITA.DDD.DDD^'Hair DESIR£D=';Maird 

5830 Ratio=Hair/Maird 

5840 PRINT USING •20A,D.DDD,2X.3A,lX>DDDD.DD,lA,3X,3A,DDDD.DD>lA";'Hair/DESIR£ 
D Hair=';Ratio,'Ta=';Ta 'R','ti=‘;Ti;“R' 

5250 Pg-Pa-Pbar 

5860 PRINT USING '4A,DDDD.DD,4A';'Pa =';Pq;'Psio' 

5870 PRINT USING “4A.DDDD.DB lA' "Ta =';Ia "R“ ^ 

5880 IF Ko=l THEN GOIO DtUeffeak ! DETERMINE PRE-RUN OR POST-RUN 

5898 INPUT 'IS AIR FLOW RATE ACCURATE ENOUGH? (Y/N)‘,Xx$ 
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5900 IF Xx$=*r THFN GOTO Dtheffcalc 
5910 Pari9u=(P3»l‘,3ird/H3ir)-Pbar 
5920 PRINT ‘RESET Pa TO‘;Paneu;"P5iq‘ 

5930 DISP ‘HIT CONTINUE AFTER RESET OF Pa‘ 

59T0 PAUSE 

5950 GOTO Paset 

59t0 Dtheffcalc; ! CAICUIATE EFFECTIVE THROAT DIAhETER, CHARACTERIS 

TIC exhaust VELOCITY, THRUST BOTH THEORETICAL AND HFASURFD 

5970 C5tar=(Gc*Rair«Ti*((Ga«flaair+l)/2)' ((Gapmaair+l)/(Gan>iaair-l))/Gannaair)* 
.5 

5980 Cfair=.739A+.5283-(14,7/Pc) 

5990 DthefM((C5tar*Nair)/(.7854i(Pc*Gc))‘,5) 

6000 PRINT ‘CstarairlBASED ON Ti)=*;C5tar,‘(ft/sec)‘ 

6010 PRINT ■Cfair=‘;Cfair 

6020 PRINT ■Dtheff=‘;Dtheff,‘(in)' 

6030 PRINT ■Pco=‘;Pc,‘P5ia' 

6040 PRINT ’Ti^VTi/ R‘ 

6050 F=(Vf-Uf0)i(Kf 

6060 Fair=Cfair*Pc».7854*(Dtheff*2) 

6070 PRINT ’FairlBASED ON Pc) = ’;Fair/(Lbf ) ' 

6030 PRINT ‘Fair(HFASURED)=*;F,MLbf)‘ 

6090 IF Ko=0 THEN GOTO 6170 

6100 INPUT "DO YOU WANl PRINTOUT OF POST RUN BATA?<Y/N>’,Yy4 
6110 IF Yy$="N‘ THEN GOTO Finish 
6120 Headinoprint : ! 

6130 PRIN^R IS 701 

6140 PRINT USING 'U' 

6150 PRINT • *»*»*» POST RUN DATA COLD AIR, CHOKED **<*»» ‘ 

6160 GOTO Preprint 

6170 INPUT "DO YOU UANT PRINTOUT OF PRE-RUN DATA?(Y/N)‘ ,Xx$ 

6180 IF Xxt="Y‘ THEN GOTO Preorint 
6190 GOTO Skipprint 
6200 Preprint: ! 

6210 PRINTER IS 701 

6220 IF Ko=l THEN GOTO 6240 

6238 PRINT " **** PRE-RUN DATA, USING COLD AIR ONLY AND CHO 

KEO FLOU x*xj" 

6240 PRINT 

6250 PRINT USING "12A,2X,8A ‘TEST DATE IS’ ,Date$ 

6260 PRINT ‘CstarairlbAScD ON Ti)=’;C5tar,‘(ft/sec) ‘ 

6270 PRINT ‘Cfair=‘iCfair 

62S0 PRINT ■Dtheff=‘';Dtheff,"(in)' 

6290 PRINT ■Pco=‘iPc,’P5ia' 

6300 PRINT "Ti=",Ti ‘ R* 

6310 PRINT 'FairtBASED ON Pc)=‘:Fair,"(Lbf)" 

6320 PRINT ■Fair(HEASURED>=";F/(Lbf)‘ 

6330 PRINT 'rtair=*;Mair,'lbn/ 5 ec' 

6340 PRINTER IS 1 

6350 IF Ko=l THEN GOTO Finish 

6360 SVipprint : ! 

6370 DlSP "HIT CONTINUE TO PROCEED TO NEXT FLOU RATE SET UP" 

63PJ PAUSE 
6390 Paskip; ! 

6400 PRINT USING "e* 

6410 INPUT "DO YOU UANT TO PRESET THE HEATER FUEL FLOW RATE? {Y/H)",Zi$ 

6420 IF Zit="N" THEN GOTO Phfskio 

6430 ixxxxxxxx »sxx**x*j*x ********* »*»«**x* xxxitt*** »* ***x»x»i(*»**s»i( *»* stk 
6440 PRINT "SET THE DESIRED VALUE OF Phf USING THE HAND LCADER/PRESSURE GAGE" 
6450 ******* *»«X*XX*»XX* XXX X*X*X»X«»<X*Xt*)H(***»****»X*»*»X*X*»*XX*»*<*XK»i! 

6460 DISP "HIT CONTINUE UHEN READY" 

6470 PAUSE 
6430 Phfset:! 

6490 PRINT USING "g" 

6500 PRINT "HANUALLY TURN OH AIR 'HEATER GAS' SUITCH" 

6510 DISP • HIT CONTINUE TO PROCEED" 

6520 PAUSE 

6530 OUTPUT 709;"AC3" 

6540 OUTPUT 722 •."T3" 
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S550 ENTER 722;ypr\f 

iStO OUTPUT 7D9; “ACT r 

£.^70 OUTPUT 722; ’TZ" 

£580 ENTER 722;UTiif 

£590 Cl EAR 709' 

6£30 OUTPUT 709;’DC10,0' 

6£10 PRINT ’.“.ANUALLY TURN OFF AIR 'NEATER GAS' SUITCK’ 

££20 BEEP 

£630 DIS? 'HIT CONTINUE TO PROCEED* 

£'Mfl PAUSE 

6£58 OUTPUT 709; *D010,0* 

£££0 Phf=a'phf-(phfO)JKphf+Pbar 
££70 Uolt5=0thf 

££30 GOSUB Tcalc 

6£98 Thf=T 

6710 «hf=K,ihf»CUht'*Phf*.7854*(Dhfchoke‘2)/(Thf*.5) 

£710 PRINT USING T 

£720 PRINT USING *4A.DD.DDDDD* ; ‘hnf=* ;P,hf 

£738 PRINT USING 'ISA.DD.DDDDD*; *«!;f DESIRtD=’;«i-Pd 

£740 R3tio=Nhf/Khfd 

£750 PRINT USING *13A,D.DDD,2X,4A,DDDD.DD,lA*;*Mhf/ Nht DESIRED=*;Ratio ,*Thf=* 

£7£0’ Pq=Phf-?bar 

6770 PRINT USING ■5A,DDDD.DDD,4A,3X,4A,DDDD.DD,lA,4A,DDDD.DD,lA*;'Phf= *;Pa;*P 
siq*,*Thf=*;Thf;*R* 

£730 input *IS HEATER FUEL FLOU RATE ACCURATE ENOUGH? (Y/N)*,Xi$ 

£790 IF Xx$=*r THEN GOTO Phffin 
6B0O Phfneii=(?hf)ihhfd/Hhf)-Pbar 

£810 PRINT USING 'ISA.DDDD.DD.AA*! ‘RESET Phf TO*;Phtnew;*Psiq* 

£320 DISP ’HIT CONTINUE AFTER RESET OF Phf 
£830 PAUSE 

£840 GOTO Phfset 

£850 Phffin:! 

£8£0 DISP ‘HIT CONTINUE TO PROCEED TO NEXT FLOU RATE SET U?‘ 

£870 PAUSE 

£830 Phfskip: ! 

PRINT USING 'S’ 

£900 INPUT ‘DO YOU UANT TO PRESET THE HEATER OXYGEN FlOU RATE7<Y/N>*,Z;4 
£910 IF Z 2 $=‘N* then goto Phoskic 

£920 Us *» * *»i( X S ***)fH* <***!( <»***»**<**->**»*<*»*«»»**! 

£930 PRINT ‘SET THE DESIRED VALUE OF Pho USING THE Hf,ND LOADER/PRESSLRE GAA£‘ 

£950 DIS? ‘HIT CONTINUE WHEN READY' 

6960 PAUSE 

£970 Phoset:! 

£980 PRINT ‘KANUALLY TURN ON AIR 'HEATER GAS' SWITCH' 

£990 DISP 'HIT CONTINUE TO PROCEED’ 

7009 PAUSE 

7010 OUTPUT 709;'AC4' 

7020 OUTPUT 722; 'T3' 

7030 ENTER 722;0pho 

7048 OUTPUT 709;*ACH’ 

7050 OUTPUT 722; 'T3“ 

7069 ENTER 722;Vtho 

7970 CLEAR 709 

7080 OUTPUT 709;'DC10.0' 

7090 PRINT 'NANUALLY TURN OFF AIR 'HEATER GAS' SWITCH' 

7100 BEEP 

7110 DISP 'HIT CONTINUE TO PROCEED' 

7120 PAUSE 

7130 OUTPUT 7C9;'D010,0’ 

7140 Pho=(Vphs-(lphoO)»Kpho+Pbar 

7150 Volts=Vtho 

71£0 GOSUB Teak 

7170 Tho=T 

7180 Hho=Knho*Cdho*Pho*.7854*(Dhochoke‘2)/(Tho*.5) 

7190 PRINT USING 

7200 PRINT USING '4A,DD.DDDDD'i 'hho=';«ho 
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7210 PRINT USING ■llA,DD,DDI)DD';‘H3irinj8Ct=';Nho 

7220 PRINT USING ■18A,DD,DDDDD’;*Nh.3 OESIRED=';Mnod 

7230 Ratio=NNo/Nhod 

7240 PRINT USING ’SOA, DODD. DDDD,3X,4A, DODD, DD,lA’;‘fiho/Mho DESIRED^’ ,»a; 

io.’Tho=“|Tho,‘R' 

7250 Po=Pho-Pbar 

72S0 PRINT USING •5A,MDD.DD,lX,5A,5X,4A,DDDD.DD,lX,2A’)’Pho=*;Pq;’P5iq’ 

;‘Tho=';Tho;"R" > > ■ 

7270 INPUT ‘IS THE HEATER OXYGEN FlOU RATE ENOUGH7 (Y/N)?‘,Xx$ 

7280 IF Xx$='Y’ THEN GOTO Phofin 

7290 Phonew=(Phc*Hhod/Hho)-Pbar 

7300 PRINT USING ■14A,DDDD.DD,1X.4A’; 'RESET Phj TO ' ;Phon(?w;'Psiq’ 

7310 DISP 'HIT CONTINUE AFTER RESET 5f Pho* 

7320 PAUSE 

7330 GOTO Phose! 

7340 Phofin; ! 

7350 DISP 'HIT CONTINUE TO PROCEED TO NEXT FLOU RATE SET UP' 

7360 PAUSE 
7370 Phoskip: ! 

7380 PRINT USING ■(?' 

7390 INPUT 'DO YOU UANT TO PRESET THE IGNITION FUEL FLOU RATE?(Y/N)' ,2:4 
7400 IF Z:$=*N* THEN GOTO Pifskip 

7410 !sxxx*x*xx*x*x*xx****x»«<*xx<*»*»»»*x*»*****»»»»»»»x*****»»*»x»»»x**x«»*» 



7420 PRINT * SET THE DESIRED UALUE OF Pif USING THE HAND LnADER /PRESSURE CAGE' 

7430 IXXt^XXXXXXXXXXXXXXXiXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXtXXXXX 

7440 DISP 'HIT CONTINUE WHEN READY’ 

7450 PAUSE 



7460 Pifset: ! 

7470 PRINT 'HAHUALLY TURN ON ' IGN. GAS ' SUITCH’ 
7480 DISP ■ HIT CONTINUE UHEN READY' 

7490 PAUSE 

7500 OUTPUT 709; 'ACS' 

7510 UAIT 1 

7520 OUTPUT 722; "T3‘ 

7530 ENTER 722; Op if 
7540 OUTPUT 709;'AC12’ 

7550 OUTPUT 722; 'T3' 

7560 ENTER 722;0lif 
7570 BEEP 

7580 PRINT 'HANUALLY TURN OFF 'IGN GAS' SUITCH’ 
7590 DISP 'HIT CONTINUE TO PROCEED" 

7600 PAUSE 



7610 Pif=(Upif-UpifO)*Kpif+Pbar 

7620 Uolts=Utif 

7630 GOSU8 Tcalc 

7640 Tif=T 

7650 Hif=Knif*Cdif*Pif».7854*(Difchoke"2)/(Tir .5) 
7660 PRINT USING "8" 

7670 PRINT USING •4A,DD.DDDDD";'Mif-';liif 

7680 PRINT USING *15A,DB,DDDDD‘ ; 'Nif DESIRED=’;Nifd 

7690 Rano=Nif/Hifd 

7700 



00 PRINT USING '17A,D,DDD,3X,4A,DDDD,DDD,lA';'Hif/Nif DESIRED=';Ratio,'Tif=' 
ipiV Pg=Pif-Pbar 

7720^ _PRJNT USING '4A,DDDD.DD,lX,4A,5X,4A,DDDD.DD,lX,lA';'Pif=';Pq;'Pisq’;'Tif= 

7730 ’ INPUT 'IS THE SFRJ IGNITION FUEL FLOU RATE ACCURATE ENOUGH? a/N)',Xx4 
7740 IF Xx$='Y' THEN GOTO Piffin 



7750 Pifnew=(Pif*Hifd/Hif)-Pbar 

7760 PRINT USING •12A,DDDD,DD,1X,4A*;'RESET Pif TO" ;Pifn8w;’Psiq' 
7770 DISP 'HIT CONTINUE AFTER RESET OF Pif 
7780 PAUSE 
7790 GOTO Pifsel 



7800 Piffin;' 

7810 DISP 'HIT CONTINUE TO PROCEED TO NEXT FLOW RATE SET UP' 
7820 PAUSE 



7830 Pifskin: ! 

7840 print using 'P' 
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7850 INPUT ‘DO YQI) WANT TO PRESET THE PURGE FLOW RATEI <Y/N)VZzi 
78S0 IF Zr$='N’ THEN GOTO Ppskip 

7370 I * i JHE it ******* <*)(**** St *}*<■>»** *****»»**»»*»*)(» Hit** JitK 

7S30 PRINT ‘SET THE DESIERD VALUE OF Pp USING THE HANRGADER/TRE5SURE GAGE" 

7900 DISP "HIT CONTINUE WHEN READY" 

7910 PAUSE 
7520 Ppset: ! 

7930 CLEAR 709 

79A0 OUTPUT 705; "DCl 0,1" 

7950 WAIT 2 

79&0 OUTPUT 709:"AC7" 

7970 OUTPUT 722; "T3" 

7963 ENTER 722; Vpo 

7990 OUTPUT 704;'AC13" 

8000 OUTPUT 722;"T3“ 

8010 ENTER 722;Vtp 

8020 OUTPUT 705; "DOl 0,1" 

8030 Pp=(Upp-VppO)sKpp+Pbar 

8040 Volts^Utp 

8050 GQSUB Teak 

8060 Td=T 

8070 Hp=RMpsCdp»Pp».7954*(Dpchoke'2)/(Tp'‘ ,5) 

8G80 PRINT USING "§" 

8050 PRINT USING ■3A,DD,DDDDD";'Hp=";Hp 

8100 PRINT USING ’13A,CD.DDDCDS "Hp DESIRED=" ;Hpd 

8110 Ratio^Mp/Hpd 

8120 PRINT USING ■16A,D.DD,3X,3A,DDDD,DD,lA’;"Hp/Mp DESIRED =";RaTia,"Tp="Tp 
* R ** 

dl30 BEEP 

8140 Po=Po-Pbar 



8160 INPUT "IS THE PURGE GAS FLOW RATE ACCURATE ENOUGH^ <Y/N>",Xx$ 

8170 IF Xx$="Y" THEN GOTO Pp.fin 

8180 Ppnew=(PptHpd/Np)-Pbar 

8190 PRINT USING "16A,DDDD,DD,1X,4A";"RESET Pp TO";Ppneu;"Psiq" 

8200 DISP "HIT CONTINUE AFTER RESET OF Pp" 

8210 PAUSE 

8220 GOTO Ppset 

8230 Ppfin: ! 

6240 Ppskip: ! 

3250 PRINT "THIS COMPLETES PRE-RUN SET-UP* 

3260 I t*ttts*t»*xtt*s*ttt»x*ttxttt*tt»»xt*»**t*xttt*t»ttx*j*tx«xx»***x»i*tti»-x* 
8270 ! (4) THIS PORTION OF THE PROGRAM RUNS THE TEST AND COUECTS THE DATA 
3280 I tttxx»»*ttstt»ixsx<t»i»»»tttt*»»<**x»t»x*»t5tx»«xx*»»*xt»tx*xistx*xt»-x*t** 
8290 ! 

8300 PRINT USING 

8310 DISP "SET TIMEDATE BY PRESSING X19 AND UPDATE, THEN EXECUTE, THEN HIT CON 
TINUE" 

8320 BEEP 

8330 PAUSE 

8340 CLEAR 709 

8350 CLEAR 722 

8360 ! THE FOLLOWING PROGRAMS THE 3456A DVH 

8370 OUTPUT 722; "L1ZOCOF1C5TDPOFLOR3 .10STI1STNSO1T4QX1 " 

8330 PRINT "THEDESIRED RUN TIMES AND DELAYS NOW BE INPUT" 

8390 INPUT ‘ENTER Tna,Tni,Tnb,T«p SEPARATED BY COMMA. THEN HIT CONTIUE‘,T«a,T(ii 
,Tr.b,Tfip 

8400 Tshut=Tna+Tni+T«b+T«p+l ! ONE MORE SECOND FOR TAIL PART READING 

8410 T4=T«a+T«i 

8420 T5^T4+kb 

8430 T6=T5Hmd 

8440 OPTION BASE 1 




8450 DIM In(600,14) 



8460 J=1 

8470 A=1 

8430 AkO 



! STORAGE DEFINITION 



! CONTROL FLAGS 



8490 A2=0 

8500 A3=0 

8510 A4=0 

BSr-O VI 4=11 



8530 

8540 

8550 

8560 

8570 

8530 

859P 



PRINT USING ■§• 

DIS? "TO INITIATE RUN, PUSH 'PRI-AIR SWITCH' ’ 

Kor.itor; ! WAIT UNTIL INITIATE 
OUTPUT 709;"AC14" 

CUTPUT 722|*T3" 

ENTER 722;i)l4 

IF U14>=,5 THEN GOTO Starlrun ! IF INITIATE RUN, IT WILL GIVE 



0.8 COLTS 
3600 



GOTO Honilor 



8610 Startrun: ! 

8620 T0=T1HEDATE 

8630 ON CTCLE ,5 GOSUB Data 

8640 ON DEI AY Tshut GOTO Shutdown 

8650 Tinewait: ! UAIT 0,5 SECOND 
8660 A=AM 



8670 GOTO Tinewait 

8680 Data: ! READ ALL DATA EVERY 0.5 SECONDS 

8690 OUTPUT 709; “ACOAFOAL 13" 

8700 FOR 1=1 TO 14 

8710 OUTPUT 722; "T3’ 

8720 ENTER 722 USING ’t,K’;In(J,I) 

8730 OUTPUT 709; "AS" 

8740 NEXT I 



8750 J=Jn 

8760 T1=TIHFDATE 

8770 IF Al=l THEN GOTO Tnabypass 

8780 IF DROUND(Tl-T0,3)>=T«a THEN 

8790 OUTPUT 709; "DCIO, 2" 

8330 OUTPUT 709;*DC10,3" 

8810 Al=l 

8823 END IF 



8830 Tnabvpass: ! 

3340 ■fl=TIi1FDATE 
8850 IF A2=l THEM GOTO T4bypa5S 
8860 IF DRCUND(T1-T0,3))=T4 THEN 

3370 OUTPUT 709; "DOio ,2" 

8380 OUTPUT 709; "DOIO, 3" 

8390 A2=l 

8900 END IF 



8910 T4bypa55i ! 

8920 Tl=TIhEDATE 

8930 IF A3=l THEN GOTO TSbypass 

8940 IF DROUND(T1-TO,3))=T5 THEN 

8950 OUTPUT 709;’DC10,r 

8960 A3=l 

8970 END IF 

8980 Tjbypass: ! 

8990 T1=TIHEDATE 

9000 IF A4=l THEN GOTO Thbypass 

9010 IF DROUND(T1-TO,3))=T6 THEN 

9020 OUTPUT 709;’D010,r 

9030 OUTPUT 709; "BCIO.O" 

9040 A4=l 

9050 END IF 

9060 T6bypassi ! 

9070 GOTO 9080 !« THIS NUMBER WILL BE CHANGED WHEN RENUNBER. 

9080 RETURN 
9090 Shutdown: ! 

9100 OFF CYCLE 

9110 Jrtax=J-l 

9120 PRINT USING *9* 

9130 PRINT ■ TEST COMPLETE, TURN OFF 'MAIN-AIR', AND TURN OFF 'HEATER 

GASES' " 

9140 BEEP 
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9150 

9160 !» (5) POST-RUN OPERATION 

91S0 DISP "HIT CONTINUE TO PROCEED TO DATA REDUCTION" 

9193 PAUSE 

9338 OUTPUT 709; '001 0,0" 

9213 PRINTER IS 701 

9330 PRINT USING "3/" 

9333 PRINT " »*** PRE-RUN INPUT ***» ■ 

9240 PRINT USING "2/" 

9350 PRINT USING •14A,9A,5X,14A,9A,5X,14A,9A,2X,14A,Dr*DD.DDDD";"Tsstno=" ;Te?tnc 
i, "Dat e="; Da let, "Fuel id3=^ '.Fuel idi,Pbdr=';Pbar 

9360 PRINT USING •14Ai9A,5X,14A,9A,5X,14A,9A,5X,14A,9A";*Heaterfuel=";Heate'fue 

IJ . 'Igriitionfuel=";Ianitii)nfuel$, "Puroe qas=“;Puneqa'5T 

9373 PRINT USING *l4A,DDDD,DDDD,5X,l4A,te.DDDD,5X,14A,DDDD.DDDD";*Utfi=";.J n 

/Di!=";Do."Lp=";Lp 

9330 PRINT USING "14A,DDDD. DODD, 5X.14A, DODD, DDDD";"Da=":Di,"Dth=";Dth 

9290 PRINT USING "HA.DDDD.DDDD.SX^HA.DDDD.DDDD.GX.lTA.DDDD.DDDD.SX.HA.E'Jj D 

DDD';"T«a=" ;T«a,’Tni=*;Tfti , 'T«b=* ;Lib, "Tflo=" ;Tfp 

9300 PRINT USING •14A,DDDD.DDDD,5X,14A;DDD0,D0DD’;'‘Dairch»ke=";Dairchoke,"Dn!fu 
cliok8=")Chfrh5ke 

9310 PRINT USING •14A,DDDD.DDDD,5X,14A,DDDD.DDDD";"Dhtoxchoke=" ;Dhochoke,‘Diqnf 
uchake=";Difchoke . » . 

9320 PRINT USING '14A,DDDD,DDDD";"Dcurqcchoke=';Dnchi)ke 

9330 PRINT USING •14A,DI)DD.DDDD,5X,14A,DDDD.DDDD,5X,HA,DDDD,DDDD";"Crlair=":Cd3 
ir/Cdh=*;Cdhf,"Cdho=";Cdho 

9340 PRINT USING •14A,DDDD.DDDD,5X,14A,DDDD.DDDD";"Cdp=";Cdn,"Cdif="iCdif 

9350 PRINT USING ■14A,DDDD.DDDD,5X,14A,DDDD,DDDD,5X,14A,DDDD.DDDD";"GaMahf=" ;G 

artrtahf/Gaf!(iaif=';GaMiajf 

9360 PRINT USING "ITA.DDDD.DDDD'i'GaMao^'iGaflnap 

9370 PRINT USING ■14A,DPDD.DDDD,SX,liA,DDPD.DDDD,5X,14A,DDDD.DDDD";"Rhf=";Rhf," 
Rif=";Rif,‘Rp=";Rp 

9330 PRINT USING ■14A,DDDD.DDDD,5X,14A,DDDD.DDDD,5X,14A,DDDD.DDDD";"K«hf=";Knhf 
/kc.if=";X)*iP,"Knp=";Xnp 

9393 PRiNT USING ■l4A,DDDD.DDDD,5X,14A,DDDD.D0DD";'KKho=";Knho,"K«air=";Kna]r 

9400 PRINT USING •14A,DI)DD,DDDD,5X.14A,DDDD,DDDD";‘Haird=Sffaird,"Tid=";Tid 

9410 PRINT USING ■14A,DDDD.DDDD,5X,14A,DDDD.DDDD,5X,14A,DDSD,DDDD,2X,14A,DDDD,D 

DDC';"Nhfd=";,‘‘.bfd."Hhod=";«hod,"Hifd=";rtifd,*N?d=MNpd 

9420 PRINT ‘INJECTION GAS IS '.Inieclqast 

9430 PRINT USING "3/" 

9440 PRINT • xx*x DATA EXTRACTED »»» 

9450 PRINT "■ 

9460 PRINT "FLOU RATES IN Lbn/sec, PRESSURE IN Psia, TEMPERATURE IN R" 

9470 PRINT ■■ 

9430 ! HEADING PRINT 



9490 PRINT USING ■9A,1X.6A,3X,6A,4X,6A,4X,6A,4X,6A,4X,6A,5X,6A,4X,6A,4X. 1CA";"T 
ir.elsec)"," Mair" " hhf‘," Mho"/ Mp"‘ ti ", "FU.bf Pc",“ Ph'.'ta’ 

9503 FDR J=1 TO J(iax 
9510 FOR 1=1 TO 14 
9520 IF 1=1 THEN 
9530 Vpc=In(J,I) 

9540 Pc=(Vpc-vpcfl)*K'pc+Pbar 

9550 END IF 

9560 IF 1=2 THEN 

9570 Uph=In(J,I) 

9583 Ph=(Uph-UphO)«Kph+Pbar 

9590 END IF 
9600 IF 1=3 THFN 
9610 Voa=ln(J.I) 

9620 Pa=(Upa-(lpaO)*Xpa+Pbar 

9630 END IF 

9640 IF 1=4 AND Ht=l. THEN 

9650 Uphf=In(J,I) 

9660 Phf=(Uphf-yphfO)*KphftPbar 

9670 END IF 

9630 IF 1=5 AND Ht=l. THEN 

9690 Vpho=ln(J,I) 

9700 Pho=('Jpho-UphoO)<Kpho+Pbar 
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9710 END IF 

9720 IF 1=6 AND Ff=l THEN 

9730 yf=In(J,I) 

9790 F=(yf-yfO)*Kf 

9750 END IF 

9760 IF 1=6 AND Ff=0 THEN 

9770 F=0 

9780 END IF 

9790 IF 1=7 THEN 

9300 Vnif=In(J,I) 

9810 Pif=(Vpif-ypifO)*Kpif 

9320 IF Pif(=(Ph+20) THcN 

9830 Pif=0. 

9890 END IF 

9850 END IF 
9860 IF 1=8 THEN 
9870 ypp=In(J,I) 

9380 Po=(ypp-vpp0)»Kpp+Pb3r 

9390 IF Pp<=(Ph+20) to 

9900 Pp=0, 

9910 END IF 

9920 END IF 
9910 IF 1=9 THEN 
9990 yolts=In(J,I) 

9950 GOSHB Tcalc 

9960 Ti=T 

9970 END IF 

9980 IF 1=10 THEN 

9990 Vslts=ln(J,I) 

10000 GOSUB Tcalc 

10010 T<3=T 

10020 END IF 

10030 IF 1=11 AND Ht=l. THEN 
10090 Volts=In(J,I) 

10050 GOSUB Tcalc 

10060 Thf=T 

1 0070 END IF 

10030 IF 1=12 AND Ht=l. THEN 
1 0090 Uolts=In(J,I) 

10100 GOSUB Tcalc 

10110 Tho=T 

10120 END IF 
10138 IF [=13 THEN 
10190 Volts=Tn(J,I) 

10150 GOSUB Tcalc 

10160 Tif=T 

10178 END IF 
10180 IF 1=19 THEN 
10190 Volts=In(J,I) 

102C0 GOSUB Tcalc 

10210 Tp=T 

10220 END IF 
1 0230 NEXT I 
10290 T=J/2 

10250 Nair=K«air»Cdair*Pa».7859*(Dairchoke*2)/(Ta* .5) 

10260 hhf=X«hf»Cdhf*Phf*.7854*(Dhfchoke‘2)/(Thf*,5) 

10270 Kho=Kftho*Cdho*Pho».7859*(Dhochoke'2)/(Tho‘,5) 

10260 Hif=Krtif*Cdif*Pif*.7859*(Difchoke‘2)/(Tif*,5) 

10290 «p=l(np*Cdp*Pp»,7859»(Dpchoke‘2)/(Tp*,5) 

10300 PRINT USING ■2X.DD.DD,3X,DD,DDD,4(3'X,D.DDDDD) ,5(3X,DDDD.DD)’iT,Hair,Nnf ,N 

ho,Mif,Hp,Ti.F,Pc,Ph,Ta 

lOho KEXT ) 

10320 PRINTER IS 1 
1 0330 PRINT USING ‘S' 

10390 INPUT 'DO YOU WNT TO HAXE POST-RUN AIR CAICUIATION7 {Y/N>",Yy$ 

10250 IF Yy9=’Y' THEN Ko=l 
10360 IF Yy$=*N* THEN GOTO Finish 

10370 GOTO Paset ! TO CALCULATE THE EFFECTIVE THROAT DIAMETER 
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10380 Finish; ! 

10390 PRINT ‘DATA OUTPUT IS COMPLETE' 

1 6400 DISP ’SECURE TEST CELL !!!• 

10410 lOCAl 70? ! RETURN LOCAL MODE 

10420 END 
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